Cream of the Crop 11/Cream of the Crop 11-1.iso/utility/pwg_key.zip/PWMAKE.WCX

Wildcat! WCX | 1995-12-05 | 3KB | 136 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  3189 bytes  11/10/122  07:45:14pm
'! Code Segment Size  :1201 bytes
'! Data Segment Size  :4506 bytes
'! String Segment Size:1988 bytes
'! Compiled with WCC version 4.11

      Type Type26
        s0 As String*4
        s4 As String*9
      End Type

      Dim i4463 As Integer
      Dim i4465 As Integer
      Dim i4467 As Integer
      Dim w4469 As Word
      Dim w4471 As Word
      Dim s4475 As String
      Dim t26_4479 As Type26
      Dim s4492 As String
      Dim s4496 As String
      Dim s4500 As String
      Dim i4504 As Integer

      Dim l65530_ As Long
      Dim i65534_ As Integer

      i4467 = 0
      w4469 = 0
      w4471 = 0
      i4463 = FreeFile
      i4465 = FreeFile
      s4492 = ".\"
      i4504 = 0
      Cls
      Print "                       M*E*G*A - Key"
      Print "                 A PassWord Generation Kit"
      Print "               Copyright ⌐1995, Stephen Gose."
      Print "                    All Rights Reserved."
      Print ""
      s4496 = s4492 + "MEGA.KEY"
      If Not Exists("MegaSrc.Key") Then
        Open s4496 For Input As 1
  187   Do Until EOF(1)
          Input #1, s4475
        Loop
  211   If s4475 = "UNREGISTERED" Then
          Print ""
          Print "   To register this program, it will cost you the price of a"
          Print "one minute long-distance (?) call (assumming that you ARE ;)."
          Print "   Just call MegaComm(sm) BBS at (540) 829-Big1 and fill out"
          Print "the online-registration form. It's simple, easy, and demonstates"
          Print "how this program can facilitate your registration process."
          Print "   It's totally automated....and will download your *.Key while"
          Print "you're on-line."
          Print ""
          Print "   All of the PUBLIC DOMAIN Source code is already included"
          Print "in this kit.  However, if you would like the source code for"
          Print "THIS PROGRAM--in WCCode and QuickBasic, and COMPLETE User"
          Print "Documentation then:"
          Print "     1) Enter our On-Line Sales Catalog and order those items."
          Print " OR  2) Fill out the Order form enclosed in this package."
          Print ""
          Print "Thanks for sampling our program....See ya on MegaComm(sm) soon."
        Else
  387     If s4475 = "REGISTERED" Then
            Print "Thanks for Supporting the ShareWare Concept."
            Print ""
            Print "   If you would like to have the source code for THIS PROGRAM"
            Print "in WCCode and QuickBasic and COMPLETE User Documentation, then:"
            Print ""
            Print "   1) Go to MegaComm(sm) On-Line Shopping Mall and place your"
            Print "      order......OR"
            Print "   2) Fill out the enclosed Order form and Mail to"
            Print ""
            Print "            Treesahran Industries"
            Print "        ATTN: MegaComm(sm) BBS Sales"
            Print "             336 Lafayette Ridge"
            Print "           Culpeper, VA 22701-3963"
          Else
  527       Print "Your control file is violated . . ."
            Print "Please call MegaComm(sm) BBS (540) 829-Big1"
            Print "to obtain a valid registration key."
            Print ""
            Print "Remember! a simple call registers this program..."
            Print ""
            Print "If you'd like the source code for THIS program"
            Print "please mail the Order form or Order from our"
            Print "On-line Shopping Mall."
            WaitEnter
            End
          End If
        End If
      End If
  612 i4504 = InputNumber("How many passwords would you like to make? (max = 999) ", 1, 999)
      If i4504 <= 0 Then
        i4504 = 1
      Else
  657   If i4504 > 999 Then
          i4504 = 999
        End If
      End If
  681
  705 For i4467 = 1 To i4504 Step 1
        Shell "RP.COM > PWTemp.txt", ""
        Reset
        s4496 = s4492 + "PWTemp.txt"
        Open s4496 For Input As i4463
        Input #i4463, t26_4479.s4
        Print "Creating New Password."
        Delay 0.5
        Reset
        If i4467 < 10 Then
          t26_4479.s0 = "00" + Str(i4467) + ","
        End If
  887   If i4467 > 9 And i4467 < 100 Then
          t26_4479.s0 = "0" + Str(i4467) + ","
        End If
  941   If i4467 > 99 Then
          t26_4479.s0 = Str(i4467) + ","
        End If
  977   Print Trim(t26_4479.s0) + ": " + Trim(t26_4479.s4)
        s4500 = s4492 + "PWord.dbf"
        Open s4500 For Append As i4465
        Print #i4465, t26_4479.s0;
        Print #i4465, t26_4479.s4
        Print "Writing " + t26_4479.s0 + ": " + t26_4479.s4
        Delay 0.5
        Reset
      Next
 1151 Reset
      Print "PWord.DBF created."
      Print "and placed in the current directory."
      Delay 2
      End